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INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR AN HER 
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Make LDO use “Adjacent node’’ rather than 


“Expected node’. 


v013 RNGOO13 Rod Gamache 21-Apr-1983 
Save/Restore R1 in NETSDBC_EFI/ESI. 


v012 TMHOO12 Tim Halvorsen aren see 
Allow caller to specify that no REAS 


N parameter is to 
be logged on TPL events. 
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: FACILITY: NETWORK ACP 
ABSTRACT: 
0 : This module performs the bulk of processing required to 
: take care of network event logging needs. 
; ENVIRONMENT: 
i MODE = KERNEL 
; AUTHOR: Scott G. Davis, CREATION DATE: 03-JUL-1980 
; MODIFIED BY: 
: vO15  ——- RNGOO15 Rod Gamache 18-Jun-1984 
; Log Data Base Re-used events. 
v014 TMHOO14 Tim Halvorsen 28-Apr-1983 
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v011 TMHOO11 Tim Halvorsen 29-Mar-1983 
Add “‘aborted service request’. 
v010 TMHOO10 Tim Halvorsen 22-Dec-1982 


v009 TMHOO09 Tim Halvorsen 05-Nov-1982 
Add code to suppress the area number in node 
addresses, if area routing is ge hidden. 


Fix area reachability chage so that it reports 
the source area, not the source node. 

v008 TMHOO08 Tim Halvorsen 16-Sep-1982 
Add support for automatic Line counters. 

v007 TMHOO07 Tim Halvorsen 27-Jul-1982 


Add support to handle Phase IV events. 

Increase size of event buffer to allow for a large 
number of ‘‘node reachable’’ events at startup time. 
Rewrite READ_EVENTS so that it correctly transfers 
only as many WHOLE events as will fit into the caller's 
buffer, and so that it correctly shifts the remaining 
events in the event buffer correctly. The previous 
code was returning partial event records to EVL, and 
causing the number of bytes ‘‘left’’ to be incorrectly 
computed to be a very small number, thus wasting most 
of the event buffer. 


v006 TMHOO06 Tim Halvorsen 30-Jun-1982 ; 
gets op | allocate event buffer, rather than having 
it statically defined in impure own storage. 
Remove all explicit addressing specifiers, and make 
the default addressing = word for the entire module. 


v005 TMHOO0S Tim Halvorsen 12-Apr-1982 
Get address of utility buffer from cell, rather than 
referencing a statically defined location. 
Fix STARTUP_EVL to queue a WQE to do the job, since 
STARTUP_OBJ calls CNF action routines, some of which 
allocate the CNF static temporary buffer. Unfortunately, 
this is required because we ney e logging counters while 
having the static temporary buffer allocated (CNT does this). 
Fix code to search database using FNDMIN segrater to expect 
that the matched CNF will be returned in R10. 
Fix bug which prevented the node address from being shown 
in the event display if there is no node name currently 
associated with that address. 
Fix bug in reporting of ‘packet format error’’ event which 
showed garbage after ‘packet beginning’’ parameter. | 
Add rorsest ine for “local node state change’, ; 
aeeetly initiated state change’, and ‘remotely initiated 
state change’’ events. 


VO3-04 ADE0025 A.Eldridge 01-Feb-1981 | 
Remove parameter count in front of counter block. 
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=SEP-19 NETACP.SRCIJNETEVTLOG.MAR; 1 ( 
Fix database determination while processing the counter timer. 


v03-03 ADE0024 A.Eldridge 19-Jan-1981 
Include the ‘‘packet beginning’’ and not the ‘'packet header’ 
| 
| 
| 
| 
| 
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as part of the event data for circuit initialization failure 


Pass null string as SYSS$NET to EVL process. Preserve all 
registers in NETSDBC_EF1,ESI. Remove temporary definition of 
A cme (was decimal 2000, should be hex 2000) and use 


v020 ADE0020 Al Eldridge 20-Aug-1980 
Log internally detected events. Log counters. 


events. 
V03-02 ADE0023 Al Eldridge 30-Nov-1981 
9 Added zero counter event. 
0 v03-01 Al Eldridge 01-Nov-1981 
Udgrade to V3.0.0 Network management. The changes are 
primarily related to the change to the new Circuit/Line 
9 model of the datalink layer. 
0 v022 ADEOO22 Al Eldridge 05-Sep-1980 
8 Further fyxes to counter logging. 
8 v021 TMHO021 Tim Halvorsen 04-Sep-1980 
0 
0 
0 
0 
0 
0 
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184 ; 
} 5 : OWN STORAGE: 
0000 0 , .PSECT NET_IMPURE ,WRT,NOEXE,LONG 
00000 189 CNX_PLI oPLRT ER: «LONG : Old CNF timer for PLI' 
$6009000 82 190 CNX-CRI-OLDTIM: .LONG 6 ; Old CNF tiner tor CRI's 
00000000 bee 13) CNX_NDI— ~OLDTIM: . LONG Old CNF timer for NDI's 
01" 48 138 EVT_B_FLAGS: ~BYTE EVTSM_EVTAVL ; Allow immediate event message 
BRD 132 SVIELO EVT,0,- 3; Define the flags 
000D 199 <EVTAVL,1,M>,- : Flag {apt tes MSG$_EVTAVL can be sent 
0000 198 <LOSTEVENT,1.M>,- : Flag implies ‘‘lost event’’ event occurred 
000D 199 <DBCEVENT, 1,M>,- ; Database change event log age 
000D 00 <CST_PLI,{,M>,- 3; Line counter suppression timer ticking 
0000 01 <CST_CRI,1,M>,- ; Circuit counter suppression timer ticking 
0000 ¢ <CST_NDI,1,M>,- 3; Node counter suppression timer ticking 
0000 504 4 
O000000F 000D 05 EVT_wW_ THRESH: -BLKW 1 ; No. of events available 
0000 O00F 06 EVT_W_LOST: «WORD QO ; # event bytes Lost 
0000 0011 07 EVT_W thn -WORD OQ ; Peak value of EVT_W_LOST 
00000000 oy 43 BASE_TIME -LONG 0 ; Base time for countér logging 
0017 10 ALIGN LONG 
00000000 0018 11 EVT_L_BUFFER: .LONG 0 ; Address of event buffer 
00000000 B65 \§ EVT_L_BUFPTR: .LONG 0 3; Ptr to next buffer Location 
60 0 14 LOST_EVENT: : Block to hold ‘‘lost event’’ 
OO1E* 0020 15 «WORD 10$-LOST_EVENT ; Length of event 
0000002A 0022 16 -BLKQ 1 : For time-stamp 
0000 002A 17 -WORD EVCSC_NMA_LOS ; Event code 
FF Q02C 18 -—BYTE <1 3; No source for this event 
0000003E D 19 -BLKB 17 3; No event-ID 
8p : $9 10$: 
003E 23 DBC_EVENT: ; Block containing ‘DBC event’ 
ot 03 «WORD 10$-DBC_EVENT ; Length of event 
0000004 a 4 -BLKQ ; For time-stamp 
2000 4 5 «WORD EVCSC_VMS_DBC ; Event code 
FF QO4A § -BYTE 1 ; No source for this event 
0000005C¢ Bnee -—BLKB 17 3; No event-1D 
gore 599 
05C QO NETSAB_EVT_WQE: 
00000080 O80 2 * BLKB WQES$C_LENGTH ; Common WQE for event reporting 
0 
0000 900 : -PSECT NET_PURE,LONG,NOWRT ,NOEXE 
0 
0000000 09 $ CNX$B_SPARE = Q 3 Spare. reserved for future use 
44 0 8 CNX$SB_TIM_ SUP = 1 ; RCB suppression timer bit i.d. 
000002 33 9 CNX$W_ID_CTM = 2 ; WOE timer REQIDT field pad database id. 
0000004 0000 40 CNXS$L ~{OONTER = 4 ; CNF field i.d. of counter string 
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98 8 DEL_TIME = CNF field i.d. of delta timer value 
§ ABS_TIME = 1 CNF field i.d. of absolute timer value 
$3333 A 5 7 be Bil ticles eee onan ee 
00000018 CENT’ «= 54 : 
CNX_PLI: PLI CNX 


Spare 
Log datalink counter suppression timer id 
WQE REQIDT value for datalinks 


pli.s,cn Datalink counter string field i.d. 
pli,l,lct Datalink counter timer field i.d. 
pli,l,cta Datelink absolute timer field i.d. 
00000000' cnx pli_oldtim : Due time of oldest CNFs 
00000000' net$gl_tnr-pli Address of CRI CNR pointer 
CNX_CRI: ; CRI CNX 
00 0 ; Spare 
04 evt$v_cst_cri  ; Log datalink counter suppression timer id 
0003 evc$c_src_cir ; WQE REQIDT value for datalinks 
cri,s,cnt ; Datalink counter string field i.d. 
cri,l,lct ; Datalink counter timer field i.d. 
cri,l,cta ; Datelink absolute timer field i.d. 
00000004' cnx_cri_oldtim ; Due time of oldest CNFs 
00000000' net$gl_cnr_cri ; Address of CRI CNR pointer 


<Zz 
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CNX_NDI: 3; NDI CNX 
00 0 _ 8 Spe 
05 evt$v_cst_ndi 3; Log node counter suppression timer id 
0000 «WORD evc$c_src_nod ; WQE REQIDT value for nodes 
-CNFFLD ndi,s,cnt 3 
-CNFFLD ndi,l,cti 3; Node counter timer field i.d. 
-CNFFLD ndi,l,cta ; Node absolute timer field i.d. 
00000008' -LONG cnx_ndi_oldtim ; Due time of oldest CNFs 
00000000' -LONG net$gl_tnr_ndi ; Address of NDI CNR pointer 


| 
| 
| 
Node counter string field i.d. 
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=SEp=198¢ 02:50:56 
~-PSECT NET _CODE,NOWRT,LONG,EXE 
-SBTTL Event timer action routine 
:evt TIMER = This routine is called when the event timer threshold expires. 
; FUNCTIONAL DESCRIPTION: 


; Set the EVENT AVAILABLE flag (NETSV_EVTAVL) 


T_TIMER: 
PUSH R5 ; Save timer block address 
BISB #EVTSM_EVTAVL,- ; Set the flag 


EVT_B_FLAGS 
EVT_W_THRESH 


BSBW  SEND_EVT_MSG 


; Any events? 
; If EQL no nets. yet 
; Send MBX MSG 


o 
m 
r=) 
r 
Sete Ge Ge Ge Se Se Se & 


96 10$: POPL ; Recover timer block 
97 BSBW WQESDEALLOCATE ; Deallocate it 
298 RSB ; Done 
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oi2 9 - -S8TTL Internal inbound raw event processing 
i § : NETSEVT_INTRAW = Process raw event detected internally 
7 4 FUNCTIONAL DESCRIPTION: 
$1 $ : A raw event is passed internally via a WOE. It is formatted and put into 
oie Be : the event buffer. 
9017 09 ; INPUTS: R11 CNR pointer as appropriate 
017 10 ; 10 CNF pointer as appropriate 
Baie 13 R9-R7 = Scratch 
17 \§ : R6 LPD pointer if datalink event 
0017 15 ; XWB pointer if logical Link event 
0017 14 ; else srcatch 
Baie 1? 3 RS WQE pointer if approriate 
0017 17 : OUTPUTS: ALL registers are preserved 
SHEE 
0017 0 NETSEVT_INTRAW: : ; Process internal raw event 
FFE6* 30 0017 1 BSBW NE TSGETUTLBUF ; Get permission to use the utility 
Bota 3 ; buffer (co-routine call) 
OFFF 8F BB bore : PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
53. 02 OOOO'CF C1 OO1E 6 ADDL3 NETSGL_UTLBUF ,#2,R3 : Setup output pointer : 
83 00000000'GF 7D 0024 27 MOVQ G*EXESGQ SYSTIME.(R3)+ : Enter standard quadword time 
50 1C AS 3C 0028 28 MOVZWL WQES$W EVC_CODE (RS) ,RO ; Get the raw event code 
50 B80 002F $3 MOVW RO, (R3)+ ; Enter the code 
w Ww pote ? BSBB 50$ 3 otopeten to complete building the 
3 even 
OF 50 =E9 0034 3 BLBC RO,40$ : If LBC then abort Logging 
58  0000'CF 09 0037 MOVL NETSGL UTLBUF ,R8 ; Get original output pointer 
57 53 58 C3 003C 34 SUBL3 R8,R3,R7 ; Calculate the data Length 
68 57 }! Boe8 35 MOV R7, (RB) 3; Store as the Length field 
0290 0 Oheg § BSBW INTERNAL_EVENT ; Stuff it into the event buffer 
OFFF 8F BA aoe 8 40S: POPR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> 
05 004A 9 RSB 
0048 $41 50s: ; 
b0cB 4g ; : Dispatch to finish bytietng the event. The SDISPATCH skip chain is 
boeg 4 ; used instead of one large SDISPATCH since the index codes are closely 
srt rt ; packed within a class but widely separated from one class to another. 
O48 46 SDISPATCH RO,- 
048 8 <EVCSC_TPL_APL, NON_PKT>, =; Aged packet loss 
048 4 <EVCSC_TPL_UPL, CIR_PKT>, <-; Unreachable packet loss 
48 50 <EVCSC_TPL_RPL, CIR_PKT>, =; Qut-of-range packet loss 
48 51 <EVCSC_TPL_OPL, CIR_PKT>, =; Oversized packet loss 
48 26 <EVCSC_TPL_PFM, CIR BEG>, -; Packet format error 
48 <EVCSC_TPL_PRU, PRUS -; Partial routing update loss 
48 4 <EVCSC_TPL_VFR, VFR>, -; Verification reject 
48 5 <EVCSC_TPL_LDO, LDO>, -; Circuit down, operator fault 
48 56 <EVCSC_TPL_LDS, LDS>, -; Circuit down, software fault 
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48 7 SEVCSC.TPLLLDE. LDF> =; Circuit down, Circuit fault 
48 8 VC$C-TPL-LUP, CIR_ADU>, -: Circuit up 
48 VCSC_TPL_-IOF, OFS, -; Init failed, operator fault 
48 60 <EVESCCTPLTISE: ISF>, =; Init failed, software fault 
48 2 cEVESC IPL. ILF, ILF>, -; Init failed, Circuit fault 
4B é <EVCSC-TPL-RCH, RCH> -: Node pecakabilite Sara 
48 36 <EVCSC TPL “AUP, CIR_ADJ>, =: Adjacency up 
48 64 <EVCSC_TPL_ARJ, CIR_ADJ>, <=; Adjacency r elect 
rt 02 ‘ <EVCSC_TPL_ACH, ACHS -; Area reachib ieee change 
78 (3e7 
O78 63 SDISPATCH RO,- 
79 0 <EVCSC_NMA_CTR, COUNTER>, =; Automatic counter timer 
0079 71 <EVCSC_NMA_ZER, COUNTER>, <=; NCP ZERO counters command 
Bn e8 i <EVCSC_NMA_ABS, ABS>, -; Aborted service request 
008 74 
oes 75 SDISPATCH R0O,- 
08 £6 <- 
at f <EVCSC_NSL_DBR, COUNTER>, -; Data base re-used event 
$088 8 
43 59 SDISPATCH R0,- 
sit 3 Hf <EVCSC_SCL_LNS, LNS>, -; Local node state change 
009 84 
44 + SDISPATCH RO,- 
009 87 <EVCSC_DLL_LSC, LSC>, =3 Nees be initated state change 
494 3 : <EVCSC_DLL_RSC, RSC>, -; Remotely initiated state change 
50 D4 009D 90 CLRL RO 3; Event unknown 
05 +44 4! RSB 3; Done 
OA0 38 COUNTER: 
50 1€ AS 9A OQOAO 94 MOVZBL WQESB_EVL_DT1(R5),RO ; Get counter database i.d. 
Boag 3 SDISPATCH RO>- : Dispatch on database type 
OAS 39 <EVCSC_SRC_NOD, NOD_COU>,- ; Log and clear node counters 
OA4 98 <EVCSC_SRC_CIR, CIR-COU>,- ; Log and clear circuit counters 
pat 180 : <EVCS$C_SRC “LIN, LIN-COU>,- ; Log and clear Line counters 
50 D4 5 203 CLRL RO 3; Database unknown 
05 : § RSB : Done 
404 NOD_COU: 3; Node counters 
0118 30 405 BSBW ENTER_SRCNOD ; Enter source node i.d. 
08 11 6 4 $ BRB Cou ; Enter the counters 
; 407 CIR_COU: 3; Circuit counters 
013A 8630 408 BSBW ENTER_SRCCIR ; Enter Circuit i.d. 
03 =«'1i1 409 cou ; Enter the counters 
4 410 LIN_COU: ; Line counters 
0154 30 cD ai} BSBW ENTER_SRCLIN 3; Enter Line ID 
Oe 418 COU: ; Log and clear the counters 
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NON_PKT: 


CIR_PKT: 


CIR_BEG: 


PRU: 


VFR: 


IOF: 


MOVW 


16-SEP-1984 

mii 5ets 
RS 
WOESB_EVL_DT2(R5) RO 
aWOESL_EVL_PKT(RS), (R3) 
#1,RO 


ENTER_NO_SRC 
ENTER_PKTHDR 


ENTER_SRCCIR 
WEVCSC_TPL_PADJ,(R3)+ 
PNA_N 

ENTER_PATHOR 
ENTER_SRCCIR 
WEVCSC_TPL_PADJ,(R3)+ 
PNA_NOBE 

ENTER_PPKB 


ENTER_SRCCIR 
TE 


ENTER_PPKB 
#EVCST_TPL_PHIA, (R3)+ 
#NMASC_PTY_DU2, (R3)+ 


WQES$B_EVL_DT1(R5),(R3)+ 


#EVCSC_TPL_PADJ, (R3)+ 
PNA_NODE 


ENTER_SRCCIR 
#EVCSC_TPL_PNOD, (R3)+ 
A_NOBE 
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Save reg 
Get length of counter block 


Move the counter block 
Indicate success 
Recover WQE pointer 


No source 
Enter null 


packet header 
source field 


; Enter the packet header 
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Circuit source, 
Enter the source 
Identify next 


adj. packet 
Circuit 
field 


Enter partner node id 
Enter the packet header 


Circuit source, 
Enter the source 


adj, packet 
aj. pac 


Identify next field 
Enter partner node id 
Enter packet begining 


Partial routin 


update loss 


Enter source Circuit 
Enter the packet header 
Identify next field 
Identify field format 


WQESB_EVL_DT2-WQESB_EVL_DT1 EQ 1 


Enter 


artner's highest 


reachable node address 
Identify adjacent node 
Enter partner node id 


Success 


Verification reject 
Enter the source Circuit 
Identify next field 
Enter partner node id 


Init failure, operator fault 
Same as ISF, exce 
Identify next fie 


Enter format type 
Enter format type 
Enter version number 
Enter format type 


Enter 


CO number 


Enter format type 


Enter user 
Success 


Init failure, software fault 


ECO number 


Enter circuit id, reason 
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NETEVTLOG - Process Event logging needs i os St 9 ta a yAncyas Macro V04-00 Page 
v04-000 Internal inbound raw event processing “-SEP-1984 02:20:54 (CNETACP.SRCINETEVTLOG.MAR; 1 
010c)=— fs 31 } . ore BRW ENTER_PPKB ; Enter packet header 
130 475 LDO: 
13D 474 LDS: ; Adjacency forced down by software 
i 18 13D 06475 BSBB CIR_REASON 3; Enter common header 
83 0 13° 478 MOVW WEVESC_TPL_PADJ,(R3)* 3; Identify next field 
011D 0 ie 47 BSBW PNA_NOBE ; Enter partner node id 
0101 1 19 $78 BRwW ENTER. PPKB 3; Enter packet header 
ais 480 CIR_ADJ: :; Enter circuit id, edsecent node 
OOAA 30 014 48) BSBW ENTER_SRCCIR : Enter source Circuit id 
83 0 8 148 4 4 MOVW WEVCSC_TPL_PADJ,(R3)+ ; Identify adjacent nade 
0111 1 ie ; ? BRW PNA_NOBE ; Enter partner node id 
151 iss ILF: : Init failure, circuit fault 
0151 486 LDF: : Circuit failure, Circuit fault 
0151 rt 14 CIR_REASON: ; Enter circuit id, reason code 
O0A1 30 bia, 488 BSBW ENTER_SRCCIR : gator source Circuit 
1E A 3 6133 rt ER yar se. EVL_DT1(R5) 3 Any’ reason speci fied? 
8§ 05 B80 0159 491 MOVW #EVCSC_TPL_PRSN,(R3)+ =; Faentit next field 
12 11 O15C 236 BRB C01 3; Enter field's value 
50 01 90 O15E 493 90S: MOVB #1,R0 ; Signal success 
Bt te ae 
016 496 RCH: 3; Node reachability change 
006C 30 016 497 BSBW ENTER_SRCNOD ; Enter the source node 
83 07 BO 016 498 MOVW WEVCST_ TPL -PSTS,(R3)+ ; Identify next field 
06 = «11 Bigs 344 BRB CD1 
Bien 501 ACH: ; Area reachability change 
004E 30 O16A 208 BSBW ENTER_SRCAREA ; Enter the source area 
83 07 B60 8198 287 MOVW #EVCSC_TPL_PSTS,(R3)+ 3; Identify next field 
83 81 8F 90 0170 505 CDI: MOVB —- PTY_CD1,(R3)+ 3; Enter field format type 
83 16€ AS 90 0174 506 MOVB aES8 “EVL_BT1(R5),(R3)+ : Enter qualifying data byte 
50 01 90 0178 507 MOVB wR 3; Signal success 
05 9178 208 RSB 
0034 30 th 510 LNS: BSBW ENTER_NO_SRC ; Enter no source ID 
83 00 B60 O17F 511 MOVW WEVCST_SCL_PRSN,(R3)+ ; Enter ‘‘reason’’ parameter type 
83 81 8F 90 0182 a MOVB yg PTY-CD1,(R3)+ 3; Enter field format type 
83 18 AS 90 0186 1 MOVB were EvL_PKT(RS),(R3)+ : Enter reason code 
83 01 80 18A 514 MOV EVE C_SCC_POLD,(R3)* ; Enter “old state’ parameter type 
3 18D 15 BSBB ; Enter coded byte from DT1 
83 2 4 18F 16 MOV fevcse _SCL_PNEW,(R3)+  ; Enter “'new state’’ parameter type 
83 81 BF 192 17 CD1_2: MOVB BASC PTY-CD1,(R3)+ :; Enter field format type 
83 1F AS 90 0196 518 MOVB B_EVL ‘BOCAS, (R3)4 : Enter qualifying data byte 
50 01 90 Q19A 19 MOVB Herm ; Signal success 
05 019D 0 RSB 
195 LSC 
0054 30 OQ19E : RSC: BSBW ENTER_SRCCIR ; Enter source circuit 
83 00 8B 1A1 4 MOVW #WEVCSC_DLL_POLD,(R3)+ ; Enter “‘old state” paraneter type 
83 61 80 IAG 83% MOV —-BEVCSC_DLL_PNEW,(R3)*+ ; Enter “new state’ peraneter type 
DLL. i ; Enter ‘'new state’ ame y 
E7 11 O1A9 é $ BRB CD1_2 3; Enter coded byte from OTe: and exit 
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Internal inbound ree event. processing $786 =1382 8}: $3; i P.S SREINEY ETEVTLOG.MAR;1 . (8) 
1AB 
1AB ABS: 3 garer ved se servi e reques 
1A8 3 a circ d, Seosanl porn 
0047 3 1AB BSBW ENTER_SRCCIR 3; Enter Aad og Circuit id 
83 03 8B Jat MOVW WEVCSC_NMA_PRSN,(R3)+~— ; identity next “Held 
BD 1 18 CD01 3; Enter field's value 
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Internal inbound raw event processing “SEP-1 NETACP.SRCJNETEVTLOG.MAR; 1 (6) 
1B 5 ENTER_NO_SRC: : Enter null source field 
83 OFF ef 90 183 § “Move BEVCSC_SRC_NON, (R5)+ ; No source 
7 0& O18 CLRL ie : Init count field 
47.11 4 3 BRB ENT_17 ; Zero the source field 
188 40 ENTER_SRCAREA: ; Enter source area 
83 05 90 0188 41 “ MOVB #EVCSC_SRC_ARE, (R3)+ ; Enter source type 
83 12 a 90 185 tg MOVB WOESW_REQIBT(R5), (R3)+ ; Store the area number 
5 bp 1C 4 PUSH 3; Save registers 
63 10 00 6€ 99 14 44 MOVC Eye SOP? 00.016, SA ; Zero rest of 17 byte fixed field 
8ED 1CA 4§ POPL i ; Restore registers 
50 =—(01 3 10D *$ MOVL #1,R0 3; Success 
oe 
1D1 49 ENTER_SRCNOD: ; Enter source node 
.. & 30 0101 50 V #EVCSC_SRC 4 4 (R3)+ ; Encer source type 
51 12 a5 3¢ 0104 51 MOVZWL WOESW_REQIDT(RS) RI : Get the node address 
09 12 0108 26 BNEQ 10$ ; Branch if not local node 
50 0000'CF 0 QOIDA 55 NETSGL_PTR_VCB,RO ; Get che RCB address 
51 OE AO C O1DF 554 MOVZWL RCBS$W_ADDRTRO),R1 : Enter the local node address 
FEIA® 30 O1€3 555 10$: BSBW SUPPRESS AREA ; Suppress area, if necessary 
51 60 O1E6 228 MOVW R1,(R3)+ : Enter the node address 
O1E9 55 SCNFFLD ndi,s,nna,R9 : Identify the node name field 
OD 10 O1FO 558 BSBB ss ENT_ SRC ; Enter padded node name 
73 «=©BS «(OOIF2 «= 5559 TSTW =(R3) ; Backup two bytes to account for 
0S O1F4 269 RSB ; node address at begining in order 
oife 56 3; to keep a total of 17 bytes 
O1FS 563 ENTER_SRCCIR: ; Enter source Circuit id 
83 03 90 BiFe 564 MOVB WEVCSC_SRC_CIR,(R3)+ ; Enter source type 
1F8 565 SCNFFLD cri,s,nam,r : Get the Circuit name field i.d. 
FDEE 30 O1FF 566 ENT_SRC:BSBW CNFSGET_FIELD : Get the source i.d. name 
5 DD 0202 567 ENT_17: PUSHL R5 : Save critical reg 
3 57 90 8 04 568 MOVB R7,(R3)+ ; Enter Length of name 
63 10 00 68 57 2 07 569 MOVCS R7,(R8),#0,416,(R3) 3; Enter the name 
55 8ED0 O020D 570 POPL R5 ; Restore reg 
50 01 90 0 19 571 MOVB #1,R0 3; Success 
05 8 1? 276 RSB 
0214 ar ENTER_SRCLIN: ; Enter source Line id 
83 01 90 0214 75 #FYCSC SRC _| IM, (RS)* ; Enter source type 
8 17 6 SCNFFLD pares nam,¢ 3; Get the Line name field i.d. 
DF 11 2 4 BRB NT" SRC ; Store the parameter value 
8 ENTER_PKTHDR: 
50 18 AS 00 0 0 MOVL WOESL_EVL_PKT(R5) ,RO 3; Get msg pointer 
1F 1 4 1 BEQL 90$ 3; Skip if none 
83 00 8 3 § MOVW #EVCSC_TPL_PPKH,(R3)+ ; Enter field i.d. 
83 (4 BF 9 MOVB #NMASC-PTY-CM4,(R3)+ ; Format type for mulitple field 
1 9 4 MOVB #NMASC"PTY"H1, (R3)+ ; Format type for message flags 
0 9 5 MOVB (RO)+,TR3)F ; Enter message flags 
§ MOVB #NMASE_PTY_DU2, (R3)+ : Format type for dst node 
8 3 MOVW RO)+, TR3)F ; Enter dst node address 
3 MOVB #NMASC_PTY_DU2, (R3)+ : Format type for src node 
9 8 C MOVW (RO)+, TR3)F ; Enter src node address | 
1 F 0 MOVB #NMASC_PTY_H1,(R3)+ : Format Fype for visits field 
83 0 9 42 91 MOVB (RO)+, TR3)F ; Enter visits field 
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#1,R0 


WOESL_EVL_PKT(RS) ,RO 
90$ 


#EVCSC_TPL_PPKB, (R3)+ 


#NMASC-PTY-HI, (R3) + 
#16, (R3)+ 


(ROS+, (R3)¢ 
(RO)+,(R3)+ 
#1,R0 


WOESW_ADJ_INX(R5) ,R8 
NE TSF IND_ADJ 


RO, 

ADJ$W_PNA(R7) ,R1 
SUPPRESS_AREA 
GET_NDI 

5$ 
#NMASC_PTY_CM1, (R3)+ 
#NMASC~PTY_DU2, (R3) + 
R1,(R3)+ 
#NMASC_PTY_CM2, (R3)+ 
#NMASC~PTY_DU2, (R3) + 
R1,(R3)+ 
#NMASC_PTY_AI, (R3)+ 
R7,(R3)+ 

(RB) +, (R3)+ 

R7,10$ 

#1,R0 


#2,R3 


#*M<R1,R10,R11> 


NETSGL_CNR_NDI,R11 
NGTSNDT _BY_ADD 


RO,10$ 
ndi,s,nna 


#*M<R1,R10,R11> 
#1,R0 
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Enter format type 

Number of bytes to be entered 
Enter first 8 bytes 

Enter final 8 bytes 

Success 


Get ADJ index 

Find the associated ADJ 

If LBC then none found 

Get the node address 

If zero, then skip it 
Suppress area, if necessary 
Find the NDI block 

Is there a node name ? 

If NEQ, then found 

Enter only 1 field 

Enter the address format type 
Enter the address 

and skip the node name 

Enter the complex format type 
Enter the address format type 
Enter the address 

Enter the node name format type 
Enter the count field 

Enter the text field 


Indicate success 


Remove parameter code 


Save he 

Copy node address 

Get NDI CNR : 
Find the NDI by address in R8& 
Nullify R7, 

No NDI CNF if LBC 

Get the node name -- returns 
R7,R8 = 0 if LBC in RO 
Restore regs 

Report success (null node name is 
okay) 
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Inbound raw event processing -SEP-19 
cf $3 J -SBTTL Inbound raw event processing 
35 gt? ; NETSLOG_EVENT = Put a raw event into the event buffer | 
0 cC 649 : FUNCTIONAL DESCRIPTION: 
8 CC 651 : A raw event is passed to NETACP. If a ‘lost event’’ event is already in 
cc $26 ; the raw event buffer, then the operation is ignored. If there is no more 
O2CC 6535 ; room for events, the ‘lost event’ event is placed in the buffer and the 
O2cC 654; flag is set to so indicate. If an event is placed in the buffer, and the 
O2CC 655 ; EVTAVL flag is set, then a mailbox message (MSG$_EVTAVL) is broadcast. 
0 35 $28 ; Events put into the buffer are time-stamped. 
CC 658 ; INPUTS: NETSGL_SIZ_P2 = size of input event 
8 33 223 ; NETSGL_PTR_P2 = address of input event 
O2CC 661 : OUTPUTS: MBX message may be broadcast (MSG$_EVTAVL) 
O2CC 662 ; RO - Status 
O2cC 663; 
O2CC 664 ;- 
psce 665 -ENABL LSB 
O2cC 666 
O2CC 667 NETSLOG_EVENT:: : Entry point 
57 QOOO'CF DO O2CC 668 MOVL NETSGL_SIZ_P2,R7 ; Get no. of bytes in event 
58 O000'CF 00 850) 669 MOVL NETSGL_PTR_P2,R8 ; Get address of event data 
8508 671 INTERNAL_EVENT: ; Local entry point 
68 57 B1 02D6 ore CMPW R7, (RB) ; Counts must match 
06 13 0209 67 BEQL 5$ ; If EQL OK 
50 00° DO O2DB 674 MOVL S“#SS$_BADPARAM,RO ; Set error code 
00c9=—S ss 31 aspe of? BRW 2008 3; Take common exit 
bse ere : Ignore event if EFI database is empty (no events get transmitted) 
2000 8F OA AB «Bi O02E1 679 5$: CMPw RAWSW_EVTCODE(R8) ,MEVCSC_VMS_DBC ; EFI database —a ’ 
OA 13 OQ2E7 680 BEQL 1 7 If7so, buffer regardless of EFI List 
50 O0O00'CF DO O2E9 681 MOVL NETSGL_CNR_EFI,RO ; Get address of EFI Listhead 
60 50 01 O2EE one CMPL RO, (ROY : Is list empty? 
3c 13 0 Fl 683 BEQL «=s«14$ : If so, exit ignoring the event 
O2F3 68> ; If this is the first event to be buffered then allocate an 
bse oes : buffer to stored the event records until EVL picks them up. 
0018'CF D5 oF 688 10$: STL EVT_L_BUFFER ; Buffer allocated yet? 
1A 12 F 689 BNEQ 11$ : Branch if so 
51 QOO01F4C 8F ge $50 690 MOVL #12+NETSC_EVTBUFLTH,R1 ; Set size of buffer needed 
FCFD" 30 09 691 BSBW NETSALLOCATE ; Allocate the buffer ; 
0D 50 «ED Hi O36 BLBC RS 11$ :; If error, skip event reporting 
0018'CF OC A2 9E 0306 69 MOVAB 12(R2),EVT_L_BUFFER : Store buffer pointer on 
OO1C*CF O0018°CF 00 B39 o38 MOVL EVT_L_BUFFERTEVT_L_BUFPTR ; Point to first available position 
031 696 : If “lost event’ already reported, allow 1 data base change event 
4 344 ;  «©to get thru 
01 =«€1 1 344 11$: BBC #EVTSV LOS Tevet = ; If BC then try to buffer event | 
30 000C *CF 1 00 EVT_B_FLAGS,20$ 
OOOF'CF 57 AO 0319 701 ADDW = R7, EVT_W_LOST ; Keep total of events lost 
| 
| 
| 
| 
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v04-0 Inbound raw event BP ocess ng $eE=138e 3:50:82 UNETACP. SREINEYEVTLOG.MAR: 1 - | 
OA AB Bl 1 CMPW RAWSW_EVTCODE(R8),- 3; No space - see if database cha 
2000 8F f 4 5 #EVCSC_VMS_DBC ; ' a 
ig 4 704 BNEQ 12$ : If NEQ no - ignore event 
E § 705 BBCS #EVTSV DBCEVENT.= ; If BC, database change not yet logged 
06 0006 F 7 § FLAGS, 15$ 
007c 630 C 707 128: BSBw STARTOP_EVL ; Start EVL process (if possible) in 
F 7 8 3; case it died and left our buffer full 
0075 = 31 F 709 14$: BRW 100$ ; Nothing to do 
58 OO3E'CF 9E § 710 158: MOVAB BF, EVENT RE ; Put in "DBC event’’ event 
ae f oy BRB 25$ ; Log the database change 
6 2 n§ ; If only room for one more event in buffer, insert ‘‘lost event"’ 
50 OOI1C'CF O078'CF C3 0339 715 208: SuBL3 EVT_L_BUFFER,EVT_L_BUFPTR,RO ; Compute # bytes in use 
50 OOO001FOO 8F 50 C3 0341 ay SUBL RO,#NET$SC_AVLBUFCTA,RO ; Compute # bytes left 
50 57 B61 0349 71 CMPW R7,R0 3 Gnough space for this event? 
if 1B 034C 718 BLEQU 308 : If LEQU yes 
OOOF'CF 5 AO peg 719 ADDW R?7,EVT_W_LOST : Keep total of events lost 
02 88 035 720 BISB2 #EVTSM-LOSTEVENT,- 3; Show that an event has been lost 
O0O00C "CF 0355 721 EVT_B_ FLAGS : 
58 O020'CF 9€ 0358 7 ¢ MOVAB LOST_EVENT,R8 ; Put in “lost event'’ event 
57 68 3C 3328 r i 25$: MOVZWL (R8),R7 ; Get the Length of the event 
Been 1$3 : Insert event into buffer 
00000000'GF 7D 0360 727 30$:  MOVQ  G*EXE$GQ_SYSTIME,- ; Time-stamp the event 
02 As 0366 728 RAWST_SYSTIM(R8) 3 
OO1C'DF 68 57 28 0368 162 MOVC3 R7,(RB),@EVT_L_BUFPTR ; Move event into the buffer 
OO1Cc'CcF 53 00 te) 730 MOVL R3,EVT_L_BUFPT 3; Update the pointer 
OOOD'CF B86 b3f3 a3) INCW EVT_wW_THRESH ; Another event in buffer 
635) 738 : If the event threshold has been reached, broadcast ‘‘events available’’ me 
05 B81 0377 735 CMPW 30s #NETSC_EVTTHRESH, - ; Has the threshold been reached? 
000D "CF 0379 736 EVT_W_THRESH ; 
o. VW Csr. ror BGEQU 3; If GEQU no 
01 88 O37E 738 BISB2 #EVTS$M_EVTAVL,- ; Set the flag 
000C "CF 038 739 EVT_B_FLAGS 3 
038 740 
O35 oe ASSUME EVTSV_EVTAVL EQ 0 
1F OOOC'CF —E9 O33 748 90$: BLBC EVT_B_FLAGS,100$ ; If LBC can't send mbx msg yet 
745 ; 
0388 oe8 : It's OK to inform the world that the event buffer should be read | 
Be 748 SEND_EVT_MSG: 
; £20 : Startup EVL process if not already running | 
21 +10 0386 36 &sBB STARTUP _EVL ; Startup EVL process if needed | 
A 23h : Reset the threshold timer 
51 D4 A £38 CLRL R1 ; Set up REQIDT for canceling timer 
6 FC70 CF o9E ee MOVAB EVT_TIMER,R2 ; Get action routine address for timer 
53 00000000 O2FAFO80 8F 7D 0391 758 MOVQ #NETSC_EVETIMER,R3 : Let this much time elapse 
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FC61" 30 0 45 P23 BSBwW WQESRESET_TIM ; Cancel previous timer, set new one 
; 44 fe) ; Now send the mailbox message 
53 ge dO 8 oF ree MOVL #<1QMBXSV_EVTAVL>,R3 ; Set mask 
52 3¢ «(0 Ag 764 MOVZWL #MSG$_EVTAVL,R2 : Set mbx ase code 
4 10 Q3A 765 BSBB ROADCAST ; Broadcast the message 
50 00° HS A? 766 100$: MOVZWL S*#SS$_NORMAL,RO ; Indicate success 
AA 767 200$: RSB 
AB 768 
O3AB 769 -DSABL LSB 
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process SEP=1984 
~SBTTL STARTUP_LEVL = Start EVL process 
STARTUP_EVL = Start EVL process 


Start EVL process (if possible). This is done by queueing a WOE 
to do the job. since STARTUP_OBJ calls CNF action routines, some 
of which allocate the CNF static temporary buffer. Unfortunately, 
this is required because we ney be Logging counters while ie 
the static temporary buffer allocated (specifically, CNT does this). 
Inputs: 

None 
Outputs: 

None 


RO destroyed. 


STARTUP_EVL: 
BSBW 
CLRQ 
CLRQ = RG 
MOVZBL #EVL_OBJ,R8 
BSBW = NETSSTARTUP_OBJ 


Fork to work queue Level 

Pass nothing as SYSSNET to EVL 
Use default process name 
Object number of EVL 

Create EVL process 

e+eeignore any errors 


WQESFORK 
R2 


RSB 


G6 10 
NETEVT -P -SEP- - 
=) 0G rocess Event lo gging needs 16-SEP-1984 r t Bh: $3: 3 AX/VMS Macro v04-00 Page 


Event logging datab ase changes “SEP-19 NETACP.S REIN NETEVTLOG.MAR; 1 


+) -SBTTL Event Logging database changes 

B : NETSDBC_ESI = note the receiver database changed 
33 ; NETSDBC"EFI = note the xmitter database changed 
34 INPUTS: NONE 

B9 OUTPUTS: RO Low bit set 


ALL other registers are preserved 


NETSDBC AEF: 


OFFE 8F 8B B9 BUSHR #°M<R1,R2,R3,R4,R5,R6,R7, a f R9,R10,R11> 
EC 10 SBB Ss STARTUP_EVL ; Startup EVL if needed 
58 OO3E'CF E MOVAB DBC_EVERT,R8 ; Point to event buffer 
57 =668 C MOVZWL (R ; Get length of item 
FFOC 30 BSBW INTERNAL EVENT . ; Inform EVL of EFI database change 
52 0044 8F C MOVZWL iMses EVTXMT ; This is the mailbox message code 
53 08 00 MOVL Beit CV SRR CHG RS i Set mask 
.. 3 ARB DBC_COMMON : Finish in common code 
NETSDBC_ESI:: 
OFFE 8F BB PUSHR #*M<R1,R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> 
D1 ~=—«:10 BSBB ss STARTUP EV ; Startup EVL if needed 
5 - * oe MOVZWL #MSG$_EQTRCV R? This is the mailbox message code 
5 04 00 MOVL #<1aMBx$v REVIRCVCHGD, R3 : Set mask 


DBC_COMMON : 
BSBB 


08 10 BROADCAS Broadcast she message 
OFFE 8F BA POPR #*M<Ri RD, R3,R4,R5,R6, R7, ‘Re R9,R10,R 
01 00 MOVL #1,R0 Always a 
05 RSB ; ne 


‘+ 


; BROADCAST - broadcast event related message 


: INPUTS: 
: = MSG$ ¢c F . 
: - mask er" for mailbox filtering !*** not yet used 
BROADCAST: 
55 0000'CF MOVL NETSGL_PTR_UCBO,R5 Point to a NET JCB address 
54 CLRL R4 No message text 


50 Function is ‘‘broadcast"’ 
Call driver coms routine 


Done 


MOVL #NETUPD$ _BRDCST,RO 


OA 
FCO9' BSBW CALL_NETBRIVER 
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r 
Outbound raw event processing SEP=19 NETACP.SRCJNETEVTLOG.MAR; 1 0) | 
4 I ne -SBTTL Outbound raw event processing 
: 3 NETSREAD_EVENT = Read out event buffer 
: ; FUNCTIONAL DESCRIPTION: 
F § : This routine places the event buffer into the specified result (P4) 
: : : buffer. Flags, pointers, and thresholds are reset for more logging. 
F 3 ; INPUTS: NETSGL_PTR_P3 = Address of result Length word 
F 60 ; NETSGL_PTR_P4 = Address of result buffer 
; $ : NETSGL_SIZ_P4 = Size of result buffer 
F 4 : OUTPUTS: P3, P4 have Length of result buffer and result buffer 
M4 ee ; RO - low word has status (NORMAL); high word has byte count 
f 66 :- 
u $9 NETSREAD_EVENT:: 3 Entry 
OO18'cCF C3 O3F8 68 SUBL3 = EVT_L_BUFFER,- ; Compute no. of bytes in buffer 
50 OO1C'CF O3FC 869 EVT-L-BUFPTR,RO 
56 50 00 B008 70 MOVL RO,R : Save bfr lth 
57 Q000°CF DO 0403 871 MOVL NETSGL_S1Z_P4,R7 ; Get size of result buffer 
56 57 1 Oeoe B76 CMPL R7,R 3 Is there room in the result bfr? 
ic =e 0408 873 BGEQU 108 ; If GEQU yes 
040D 875 ; There's not enough room in the caller's buffer to hold 
040D 876 ; all the events we have buffered. Scan our event buffer 
0400 877 ; and find the last event that will fit, so that we always 
ete 578 ; copy ‘whole’ event records. 
51 O0018°CF 00 8293 $80 MOVL EVT j UP FER a ; Get buffer pointer 
26 an oig 881 MOVL R7,R ; Get length of user's buffer 
5 61 3C 041 Hq) 5$ MOVZWL (R1),R3 ; Get length of next event 
52 53)—C«T 0418 88 CMPL ss R3,, RO : WiLL next event fit in buffer? 
08 1A 041B See BGTRU 8$ : If not, then stop here 
52 53 C2 041D 885 SUBL R3,R2 : If it fits, then include it 
51 53 CO 04 43 ADDL R3,R1 ; Skip to next event 
FO 11 04 87 B 5$ ; Keep scanning 
> FT hm 8 3 +44 8$ SUBL3 R2,R7,RO0 ; Compute size of bytes to move 
0429 90 : The number of bytes to be moved has been determined. 
Bs 4 4! 3; Store the byte count in the P3 result Length word. 
51 0000°CF 09 Oe 9 38 108: MOVL WE TSGL_PTR_PS.RI ; Get address of result Length 
= s 4 94 E 208 : If EQL there is none 
61 0 B0 " 32 MOVW RO, (R1) ; Store the result length | 
4 44 : Construct the final 10SB with the byte count | 
7E 50 BO 04 99 208: Move  RO,-(SP) : Byte count to high word 
7E 00° B0 4 : 300 MOVW § S*#SS$_NORMAL,-(SP) ; Store 1/0 status in low word | 
4 3 90¢ : Move the events into the caller's buffer 
0018'DF 02 AE 28 0439 904 MOVC3 2(SP),@EVT_L_BUFFER,- ; Move event buffer to result bfr 
0000' DF 43F 905 @NETSGL_PTR_P4 
442 906 : 
| 
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44 907 ; Shift down any renetniog events that couldn't be copied 
t2 9 8 3; =©to the front of the buffer. 
52. O02A 3 44 ati MOVZWL 2(SP),R ; Get the number of bytes we moved 
50 656 C 44 911 SUBL3 R2,R6,R ; Compute # bytes of remaining events 
001C'CF : 44A 316 SUBL_ Re,EVf_L_BUFPTR : Adjust buffer pointer 
0018'DF 61 44F 91 MOVC3 RO,(RIT,GEVT_L_BUFFER ; Move remaining evts to bfr top 
OO11'CF OOOF'CF 81 0455 914 CMPW Vt _W.LOST.EVT_W_PEAK : Did we hit peak "lost bytes’? 
07 18 QO45C = 915 BLEQU 0$ 3; Branch if not 
OO11'CF OOOF'CF B80 t2k 318 MOVW EVT_W_LOST,EVT_W_PEAK ; Store new peak ‘‘lost bytes’’ 
QOOF'CF B4& 046 917 30$: CLRW EVT_W LOST ; Clear lost count statistic 
469 318 CLRBIT #EVTSO_LOSTEVENT,- : There's now room in the buffer 
469 91 VT_B_FLAGS 3 
56 02 AE 81 rf 920 CMPW (SP)TR6 ; Did we empty the buffer? 
08 13 04 ; 921 EQL 0$ ; If so, then indicate buffer empty 
O47 9 : SETBIT W#EVTSV_EVTAVL,EVT_B_FLAGS ; Tell EVL to read more events 
08 11 0478 9 RB 100$ > Proceed 
OOOC'CF 94 0470 924 50$: CLRB EVT_B_FLAGS ; Reset the flags 
OOOD'CF B84 0481 925 CLRW EVT_W_THRESH ; Reset the event threshold 
50 8EDO 0485 926 100$: POPL RO ; Get 1st IOSB Longword 
05 0488 927 RSB 3; Done 


LSeeeeeeeeeee2 


RO-R9 are destroyed. 
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‘ 3 -SBTTL NETSSET_CTR_TIMER = Reset automatic counter timer 9! 

Ba : 

4 3 : FUNCTIONAL DESCRIPTION 96 

489 : This routine is called whenever the a data base is updated to start or 00 

489 3 reset the automatic counter timer. When the counter timer fires, the 00 

489 ; counters will be logged on whatever CNFs are due. The timer is then 

r 2 : reset to the next earliest due time. 

r 3 3 Inputs: 8 
0489 : R11 = CNR address 00 
04 ? : R10 = CNF address 88 
0489 : Outputs: 00 
bene : 00 
0489 3 None 00 
0489 3 
0489 ; 
bene i- 

0489 

0489 

0489 

Beek 

049 
4 
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> 
NETSSET_CTR_TIMER = Reset automatic counter timer 


NETSSET_CTR_TIMER:: 3; Reset lo ging counter timer 
56 QOO18'CF 9% MOVAB CNX_CRI,R6 ; Assume CRI data base 
0000'CF 5B SC | CMPL R11, NETS$GL_CNR_CRI : Is it ? 
19 13 EQL 10$ ; If EQL then yes 
56 OO30'CF 9E 0495 MOVAB CNX_NDI,R6 ; Assume NDI data base 
0000'CF 5B 01 O49A CMPL  R117NETS$GL_CNR_NDI : Is it the NDI data base 
D 13 O49F BEQL 10$ ; If EQL then yes 
56 QOOO'CF 9E OQ4A1 MOVAB CNX_PLI,R6 ; Assume PLI data base 
0000'CF 5B 01 04A6 CMPL R11, NETSGL_CNR_PLI : Is it? 
01 13 Q4AB BEQL 10$ : Branch if so 
05 gene RSB ; Else, unsupported database 
O4AE 964 ; 
QO4AE 965 ; Since it is common for many CNF blocks to be pesetes by the 
O4AE 966 3 network manager at the same time, it is possible to reduce the 
O4AE 967 ; total amount of work to be done somewhat by waiting a short time, 
O4AE 968 ; the so called ‘’suppression interval’’, before running the timer 
O4AE 969 3 update algorithm after any given CNF block is updated. This has 
QO4AE 970 ; the effect of batching the requests and reduces the work by making 
Rene 3h ; better use of each scan of the data base. 
4AE 358 3; The suppression timer interval is 2 seconds. This is Long enough 
O4AE 974 : for a typical NCP>SET KNOWN NODES ALL command to complete, an 
a 454 : short enough not to be noticed by the issuer of the command. 
59 08 A6 g0 4A 375 10$: MOVL CNXSL_DEL_TIME(R6),.R9 ; Get the counter timer field i.d. 
FB4B' 4B 978 BSBW CNFSGET_FIELD 3; Get its value 
1D 50 —9 0485 979 BLBC 1 ; If LBC then its not set 
58 00000000'GF CO 0488 980 ADOL G*EXESGL_ABSTIM,RB : Convert to absolute time 
59 OC _A6 Bo 4BF 981 MOVL CNX$L_ABS_TIME(R6),R9 =: Get field i.d. 
403 9 § BSBW CNFSPOT FIELD 3; Store it 
50 01 46 9A 0406 9 MOVZBL CNX$B_TIM_SUP(R6) ,RO ; Get the suppression timer bit no. 
05 OOOC'cF 50 €E2 O4CA 984 BBSS RO,EVT_B_FLAGS,15$ ; 
400 985 i is ticking 


f BS then update suppression timer 
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NETACP.SRCJNETEVTLOG.MAR; 1 
; Suppress grocess ing request for 2 sec 
he timer 


; Get the timer WQE for deallocation 
; Get timer database i.d. 

; Deallocate WQE 

; Assume CRI timer 


1s 
e DI timer 


: L por 
: Assume LI timer 


MOVL  #2,R8 

BRB 40$ : Set t 
BRW 50$ ; Continue 
:; Entry point called when timer fires. 
3 Determine database 

MOVL = RS ; 

EXTZV #16,#16,R1,R5 : 

BSBW =: NE TSDEALLOCATE ; 

MOVAB CNX_CRI,R6 ; 

CMPW ORR pe _SRC_CIR : Is it 
BEQL : If EQL 
MOVAB CNX_NDI,R6 + Assume 
CMPW ORS uege _SRC_NOD : Is it 
BEQL R2gFe : If €0 
MOVAB CNX : 

CMPW ORS wats te _SRC_LIN : Is it? 
BEQL 258 : 


BUG_CHECK NETNOSTATE,FATAL 
MOVL  @CNX$L_CNR_PTR(R6),R11 
MOVZBL CNX$B ye Sup UP (RO) RO 


CLRBIT RO,EVT_B 
BSBB-SCTICK 


: Determine the next earliest 


MOVL Saat reine, "ed 
FSK 


BSBW StséN 
BLBC 
BSBW CNFSGET “FIELD 


MOVL RB. @CNX$L_OLD_TIME(R6) 
CMPL G*EXESGL_ABSTIM,R8 


BLSSU 35$ 

4 #2,R8 

SUBL —G*EXESGL_ABSTIM.RB 
#2,R 


: Reset the timer 
RB, #19*1000*1000, ,#0,R3 
MOVL 208 1D CTM-2(RG) 6B R1 


MOVW #WQESC QOAL_CTMa 
BSBW WQESRESET_TIM 


; Branch if so 
3; Timer i.d. unknown 


: Get the CNR pointer 

: Get the suppression timer bit no. 

; Suppression timer no longer ticking 
: Process CNF timers 


CNF due time 


: Start from the. ag 2 of the CNF List 
: Get absolute ¢ ield id. 

: Fet is “find HP dey value’ 

3 Find minimum value 

: If no CNF found, no timers are set 
3; Get due time of miniaum (NF 

: Branch if cannot gec it 

: Store the absolute due tine 

; Have we passed that time yet? 
: (this ee rut tie" if the event 

3; buffer i 

; f LSSU the n 

; Try again in ° seconds 

: Cont inue 

3; Convert to delta time 

; CNF timers are greyoed tn into 2 second 


; buckets to batch the work 


Get quadword timer interval 

Setup timer routine address 

Setup timer i.d. in high order word 
Setup timer qualifier 

Reset the counter eines 


2 ed 
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05 50$: RSB 
wate + 4 24 dO TICK MOVL G*EXESGL_ABSTIM,- 3; Get seconds since boot to be used 
0013'CF BASE. TIRE 3 as the common base for updating timers 
SA D4 108: CLRL R1 3; Start from the head of the CNF List 


: Find the next CNF whose timer is due. Must first check for 

; CNF entries whose time is past due to prevent finding the same 

: SNFe over and over again when there are more entries than can fit 
n the event buffer. 


50. OO1C'CF 0018°CF SuBL evt L_BUFFER,EVT_L_BUFPTR,RO Compute # bytes in use 
50 00001F00 8F 50 SUBL 0, ANETSC PAVCBUFLTR. RO ; Compute # bytes left 
50 0064 8F CMPW B60 RO :8Enough reen in buffer? 
BGTRU 40$ I Ru th ther no 
59 OC A6 MOVL CNX$L_ABS_TIME(R6) ,RO . Get f 


6), 
ADDL3 +¥ acAX$L OLD TIME ( R6) ,RE 


3; Get eo eles of oldest CNFs 
*G*EXESGL _ABSTIM 


; Use 4 second interval but don't 
; exceed the current time 


58 00000000°GF 01 


51 01 
FA54' 


40 50 
50 0000'DF 


C 

C 

B 

1 

Dd 

58 B C 
00000000'GF 58 OD 
1 

E 

D 

C 


‘ 
MOVL S*#NFBSC_OP_GTRU,R1 
BSBW cnr Scey. SEARCH 


R1 
ADDL3 = #1,G*EXESGL_ABSTIM,R8 


MOVL S*#NFBSC_OP_GTRU,R1 
BSBW CNFSKEY_SEARCH 


BLBC 
REMQUE @NET$GQ_TMP_BUF RO 


; Match on key value GTRU CNF field 

; Find sooreor tote f CNF 

; If LBS then found one 

Start aa scan from head of CNF List 
; Bias current time. The ‘'+1"' is used 
to help smooth the coarseness of the 
, Stuer and to amortize the timer over- 
; head across a number o 


CNFs 
; Match on key value GTRU CNF field 


: oy Appropriate CNF 
If BC then no such CNF 


3 ; Dra ; soup buffer queue since 
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WOOO OO OOO 1000600909 69 09 69 09 69 09 SINISE SSSA AAA AA AAA MMMM EEE EEE HD 


me eR a a a ah et Dd a mt aed A a A 8 8 eH 


the search below could fill it 
05 BVS 17$ : Tf VS then none 
FA47' BSBW 1 aaa ; Deallocate the block 
F4 BRB ; Loop 
588 17$: 3 
588 ; Snapshot the counters and log the event records. The CNT 
588 3 action routine will log the event record because the CLRCNT 
oB8 : flag is set. 
0000'cF oD 0588 PUSHL_ NETSGL_FLAGS ; Save current flags 
SBF SETBIT #NETSV-— CCRENT NETSGL_ FLAGS ; Counters are to be cleared 
59 04 A6 p 5¢5 MOVL § CNXS$L_COUNTER(R6),RO” ; Get counter field i.d. 
FA34" 30 O5C9 BSBW CNFSGET FIELD ; Read/clear the counters 
L LLFL ; Restore flags 
0000'CF 8EDO ace POP NETSGL_FLAGS R fl 
pt : Calculate its next due time and store it in the CNF 
59 08 46 g8 5D1 MOVL CNX$L pe, TIME (R6) RO : get delta time field i.d. 
FA28' 30 0505 BSBW CNFSGET ; h it 
59 O¢ 46 0? 508 MOVL Ht ABS_TIME(R6) ,R9 ; gee A. ee time field i.d. 
5 3 50C BLBS : If LBS then delta time was valid 
ae 0 OSDF BSBW cM CLR_FIELD 3; Else the timer has been cancelled 
0 11 5E2 BRB 3 Continue 
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3; Determine when timer should fire next 
Store it 
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Symbol table *Pejyleetee $c reat BrRE= 1984 62:90:56 ENETACE. SRCINEVEVTLOG.MAR: 1 df) v4 
ym | 
= NETSC_MINBUF SIZ = 
Eves tostey = 90000001 NETSC=IID ACT : 3 
EVI ev -eet nape = $000000 NETSC-TID-XRT = 00000 
EVTSV—CST_NDI je 0 NETSC-TRCTL_CEL = 00000 
SAE RS Pa : 0 NETSC-TRCTL-OVR = 0000000 
pvr ey-burnest : NETSC-UTLBUFSIZ = 00001000 | 
EVTSV_EVTAVL = 0000 i NETSOBC_EFI 00003B9 RG 0% 
EVTSV_LOSTEVENT * ORE) in ae NETSDBC_EFI DOOOsRS He (Ok | 
EVITC BUFF 00000018 R NETSDEACLOCATE eee s, RP Oe 
EVITLBUEPTR So00001¢ R «8 NETSEVTINTRAW 00000017 RG 04 
EVITTIRER SR Os NETSFIND ADJ power 
EVT-U CBS 0000000F R NETSGETUTLBUF teensers =X 06 
EVITUPEAK 80000011 RO “ETSGL_CNR_CRI eeeceres =f 09 
eas 90000000 Rg NETSGL-CNR-EF I sencncoe 6 
Eiger aneoe ceeesere x OS NETSGL-CNR-NDI movers oe 
EXESGC_ABSTIM ine rt y 04 NETSGL CNR PLI RRERRERE xX 03 
EXE$GQ SYSTIME ten 5 R 04 NETSGL FLAGS RRRARERE x 04 
fc Sooooist R 4 NETSGLTINITVER rempeieih AB « 
"T RREKKREE 
INTERNAL _EVENT 99000206 R 04 We leer=pte-56 teeeeere X04 | 
sf 00000138 R «Oa NETSGL-PTR-P4 teeveres X04 | 
ty 00000151 R Oe NETSGL-PTR-UCBO evoaeeee 2 a | 
LDF 13D R 04 NET$GL PTR-VCB ekteekee x 04 
LOS 0000013) R 04 NETSGL“SIZ~P2 tinea at TR 
LDS 00 3 0 D R 04 NETS$GL SIZ P4 RR x 04 
tNST So0017t Rd NETSGL-UTLBUF eeeeeeee X06 | 
tos 89000020 R 3 NETSGQ°TMP BUF pooeeees a we 
ne QO00019E R 04 NETSLOG_EVENT _ gooo0gcc RG 04 
hensy vray = 9000000 NETRA RL CR pereene n 
ere Eet natin = 90000008 NETSREAD_EVENT QO0003F8 RG 04 
mect EUTAVE = O000003E NETSSET CTR_TIMER 00000489 RG 04 
mscs_EVTAVL = 9000003E NET$STARTUP-OBJ teresees =X 04 | 
MSG$_EVTRCVCHG = 444544 NETSV_CLRCNT = 00000002 
MSG$_EVTXMTCHG - 0000005C RG 02 NE TUPBS BROCST = QO00000A 
NET EVT wae eeenenee 3 X 04 NFBSC_CRI_CNT = 04020044 
NETSALCOCATE = 0000001 NEBSC7CRI-CTA = 04010011 
NETSCHEPREASTN’ = 99000002 NFBSC_CRI-NAM = 06020041 
“EEN : CINDIZCNT 
NETSC_EFN WAIT = 00000001 NFBSC_NDI_ = 03010011 
NETSC~EVTBUFLTH = 00001F 40 eed 4 4 010013 | 
NETSecIPL See = 06000008 NFBSC~OP_FNDMIN = 06000004 | 
ohh = 90000020 NFB$C_OP-GTRU = B08 8 80} | 
NETSCUAAKACCELD s 60000097 NFBSC-PLT_CNT = 05020044 | 
NETSC~MAXL INNAM = 00000008 NFBSC“PLIICTA . 03010015 | 
NETSC_MAXLNK = 00000006 NFBSC7PLI-NAM = 0502004 
NE TSC_MAXNODNAM . 0 0000¢ NMASC7PTY7AI 90000040 | 
NE TSC _MAXOBJNAR ae tits NMASC-PTY~CD1 = 00000081 | 
NETSC_MAK_AREAS = 00000040 NMASC~PTY~CM1 = 900000¢} | 
rE Te RAN LANES = 9000068 NMASC“PIY-CHG = 900000¢¢ | 
ME TES RANT WODES = So000srF NMASC_PTY-CM = 999990¢ | 
NETSECRAX™ J = $6 gor NBASC _PTY_CAS = $ it | 
NE T$C_MAX_WQE = 00000014 NMASC_PTY_DU | 
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"$SEP=1986 02:90:54 ENETACE. SRCINETEVTLOG.MAR;1 | o* a 


NETI 
v04: 


126517 bytes_(248 pages) of virtual memory were used to buffer the intermediate code. 
isece were 130 pages of symbol table space a yeeeuee to hold 2195 non-local and 6 local symbols. 
1106 source Lines were read in Pass 1, producin 


object records in Pass 2. 
39 pages of virtual memory were used to define 


hid macros. 
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Macro Library name 


San SHRLIBINMALIBRY.MLB; 1 


$255$DUA28: CSHRLIBJEVCDEF .MLB; 1 
:CNETACP.OBJJNETDRV.MLB; 1 


1 
6 
: ari tal OBJ JNET.MLB; 1 7 
8 
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NETEVTLOG - Process Event logging needs 16-SE 1:25:34 VAX/VMS Macro v04-00 Page 29 NE] 
Psect synopsis = B7gEp-| 382 B2: 33 34 NETACP.SRCJNETEVTLOG.MAR; 1 : 4) v04 

eeceeeeceocee eeoan eed 

! ; Psect synopsis ; | 
PSECT name Allocation PSECT No. Attributes | 
» 08 « 00000000 ( 0.) 00 ¢ 0.) NOPIC “USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE | 
SABSS QOOOOOIF ( 34°} 01 ¢( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
NET_ IMPURE 44g ( 128.) 8 ( ¢°} NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
NET_PURE 44 ( 72.) Q3 ¢ -) NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
NET_CODE OOOO0SFO ¢ 1520.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 

Gucceuccnseeswesenssunsond 
! \ Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 31 00:00:00.07 00:00:00.36 
a processing 155 00:00:01.01 BF 83 «20 
601 a SEs gt 00:00: 4-99 

Synbol table sort 0 00:00:03.08 00:00:03.16 
Pass 2 257 00:00:04.82 00:00:06.17 
Symbol table output 36 00:00:00. 26 00:00:00.26 
Psect synopsis output 2 00:00:00.03 00:00:00.03 
Cross-reference output 0 es Ss 00:00:00.00 
Assembler run totals 1084 00:00:33.10 00:00:47.14 
The working set Limit was 1950 pages. 


UA28: OBJJLIB.MLB; 1 
“$255$DUA28: oye IBISTARLET ALB; 2 
TOTALS (all Libraries) 2 
2325 GETS were required to define 26 macros. 
There were no errors, warnings or information messages. 
| 
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